home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Game / N-P / The Pick⁄⁄ / The Pick__ / background_2661.txt < prev    next >
Encoding:
Text File  |  1989-04-10  |  1.5 KB  |  66 lines
  1. -- background: 2661 from stack: in
  2. -- bmap block id: 3313
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 4 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=221 top=156 right=205 bottom=286
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: PICK
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   flash 1
  23.   play ThePick
  24.   put "  " into card field 4
  25.   put "  " into card field 2
  26.   put "  " into card field 6
  27.   put "  " into card field 1
  28.   put "  " into card field 5
  29.   put "  " into card field 3
  30.  
  31.   put random of 39 into num1
  32.  
  33.   put random of 39 into num2
  34.   repeat until num1 <> num2
  35.     put random of 39 into num2
  36.   end repeat
  37.  
  38.   put random of 39 into num3
  39.   repeat until num2 <> num3 and num1 <> num3
  40.     put random of 39 into num3
  41.   end repeat
  42.  
  43.   put random of 39 into num4
  44.   repeat until num1 <> num4 and num2 <> num4 and num3 <> num4
  45.     put random of 39 into num4
  46.   end repeat
  47.  
  48.   put random of 39 into num5
  49.   repeat until num1 <> num5 and num2 <> num5 and num3 <> num5 and num4 <> num5
  50.     put random of 39 into num5
  51.   end repeat
  52.  
  53.   put random of 39 into num6
  54.   repeat until num1 <> num6 and num2 <> num6 and num3 <> num6 and num4 <> num6 and num5 <> num6
  55.     put random of 39 into num6
  56.   end repeat
  57.  
  58.   put num1 into card field 1
  59.   put num2 into card field 2
  60.   put num3 into card field 3
  61.   put num4 into card field 4
  62.   put num5 into card field 5
  63.   put num6 into card field 6
  64. end mouseUp
  65.  
  66.